home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -screenplay- / shareware / muscarine / 7.room < prev    next >
Text File  |  2000-02-29  |  4KB  |  128 lines
  1. /* Professor Crckbrn
  2. /* Room script for GRAAL
  3. /*
  4.  
  5. /* UPDATE: scroll_frames[;normal_frames]
  6. /*
  7. UPDATE: 6;1
  8.  
  9. /* 3D: max;mid;min;adjspeed (This statement is optional)
  10. /*
  11. /* SECTION: SAME|section_no
  12. /*
  13. SECTION: 2
  14.  
  15. /* BACKDROP: file
  16. /*
  17. BACKDROP: 7BG.iff
  18.  
  19. /* START_POS: startpos_no;image;x;y;L|M|R;floor_no
  20. /*
  21. START_POS: 1;//SIMG11;36;96;L;1
  22.  
  23. /* FLOOR: floor_no;x1;y1;x2;y2;floormaps
  24. /*
  25. FLOOR: 1;18;87;136;169;1-1/2-2
  26. FLOOR: 2;61;165;224;169;1-1/2-2
  27.  
  28. EXIT: 1;10;5;28;86;32;93;door
  29.  
  30. CLPART: 7FG.iff
  31. /* 1=rat
  32. ROOMIMGS: 1;1;0;0;57;49;0;-66
  33. /* 2-4=Crckbrn
  34. ROOMIMGS: 3;2;0;53;92;72;94;0
  35. /* 5-8=grip arm
  36. ROOMIMGS: 4;5;60;0;44;39;44;0
  37.  
  38. /* ROOMIMGS: number;start_bob;x1;y1;w;h;x-offset;hotspot (This statement is optional)
  39. /*
  40. /* STATIC: bob;image;x;y (This statement is optional)
  41. /*
  42. /* ANIM: bob;image;anim_ch;anim|ptrn;x;y (This statement is optional)
  43. /*
  44. /* ROOMOBJ: obj;name;room;VIS|NVIS;bob;image;x;y;cx;cy;cimage;prep;PICK|NPICK;anim_ch;verb;icon;LOW|MID|HIGH;types;w1;w2;w3 (This statement is optional)
  45. /*
  46. /* DACT: {cond|comm}
  47. /*
  48. DACT: TRACK 7.mod,0,NOFILTER
  49. DACT: LIGHTS ON;EXIT
  50.  
  51. /* LINE: dlg;line_no;sentence1;sentence2| ;{cond} (This statement is optional)
  52. /*
  53. /* LACT: dlg;line_no;{cond|comm} (This statement is optional)
  54. /*
  55. LINE: 5;1;My name is Erica.; ; 
  56. LACT: 5;1;RESP R,5,Hello Erica!;DSET 5,N1;EXIT
  57.  
  58. LINE: 5;2;My mission is to destroy the Universe.; ;IFOF 8,1=1
  59. LACT: 5;2;RESP R,5,Fine! That has to be done to keep up the cosmic balance.
  60. LACT: 5;2;RESP R,5,Hope you have success.;DSET 5,N2,+3;EXIT
  61.  
  62. LINE: 5;3;Could you help me to destroy the Universe?; ;IFOF 8,1=1
  63. LACT: 5;3;RESP R,5,No time! Sorry!;DSET 5,N3;EXIT
  64.  
  65. LINE: 5;4;What do you know about the star nilende?; ;IFOF 9,2=1
  66. LACT: 5;4;RESP R,5,It likes dark places. You can catch it with a star trap.;DSET 5,N4,+5;EXIT
  67.  
  68. LINE: 5;5;Where I can get a star trap?;Where did you say I can get a star trap?;IFOF 9,2=1;IFOF 10,2=0
  69. LACT: 5;5;SETOF 3,2=1;RESP R,5,I'll build you one.;RESP R,5,But I need some human body parts at first.
  70. LACT: 5;5;DSET 5;EXIT
  71.  
  72. LINE: 5;6;Could you give me a gravity converter, please?; ;IFOF 15,1=1;IFNOTCARR 11
  73. LACT: 5;6;SETOF 12,3=1;RESP R,5,Bring me a green glowing mutant rat.;RESP R,5,Then I'll give you a gravity converter.
  74. LACT: 5,6;DSET 5;EXIT
  75.  
  76. LINE: 5;7;Could I have this lab rat, please?; ;IFOF 12,2=0
  77. LACT: 5;7;RESP R,5,Ok, take it. I don't need it any more.;DSET 5,N7;EXIT
  78.  
  79. LINE: 5;8;Goodbye!; ; 
  80. LACT: 5;8;RESP R,5,Goodbye!;EDLG;EXIT
  81.  
  82. LINE: 5;9;Can you make this cauldron heat-resistable?; ;IFCARR 45;IFOF 45,1=0
  83. LACT: 5;9;RESP R,5,Let me take a look at it!;HANDLE MID;CUTSCENE 1,H;W 24;HANDLE -1
  84. LACT: 5;9;RESP R,5,Ok, I put a special varnish on it.;RESP R,5,This varnish will make the cauldron heat-resistable when it comes into contact with blood.
  85. LACT: 5;9;HANDLE MID;CUTSCENE 1,H;SETOF 45,1=4;PICK 45;W 24;HANDLE -1;SAY Thank you!
  86. LACT: 5;9;RESP R,5,Ok, and don't forget to put it into blood first.
  87. LACT: 5;9;DSET 5,-9;EXIT
  88.  
  89. /* ACTION: verb_no;{cond|comm} (This statement is optional)
  90. /*
  91. ACTION: 0;IFOBJ 1;MEXIT;GOTO 4,5
  92.  
  93. /* Action 1 - Give
  94. /*
  95. ACTION: 1;IFOBJ 3;IFOBJ2 13;IFOF 3,2=1;MOBJ 13
  96. ACTION: =;SAY Here you go, have a leg.;SAY Could you build a star trap for me now?;HANDLE MID;CUTSCENE 1,H;PUT 3,U, ;HANDLE -1
  97. ACTION: =;RESP R,5,Ok, a leg. That should work.;RESP R,5,One moment please...;W 24;RESP R,5,...and here it comes: one star trap!
  98. ACTION: =;HANDLE MID;CUTSCENE 1,H;PICK 10;SETOF 10,2=1;HANDLE -1;EXIT
  99. ACTION: 1;IFOBJ 3;IFOBJ2 13;SAY I'm not sure if he really needs it.;EXIT
  100. ACTION: 1;IFOBJ 12;IFOBJ2 13;IFOF 12,1=1;IFOF 12,3=1;MOBJ 13;HANDLE MID;CUTSCENE 1,H;PUT 12,U, ;HANDLE -1
  101. ACTION: =;RESP R,5,Ok, thank you.;RESP R,5,And here is your gravity converter.
  102. ACTION: =;HANDLE MID;CUTSCENE 1,H;PICK 11;HANDLE -1;EXIT
  103. ACTION: 1;IFOBJ 12;IFOBJ2 13;IFOF 12,1=1;SAY He hasn't asked me for that.;EXIT
  104. ACTION: 1;IFOBJ 12;IFOBJ2 13;IFOF 12,1=0;IFOF 12,3=0;MOBJ 13;RESP R,5,Thank you, but I don't need it.;EXIT
  105. ACTION: 1;IFOBJ 12;IFOBJ2 13;IFOF 12,1=0;IFOF 12,3=1;SAY He said he needs a green glowing mutant rat.;SAY This is a normal lab rat.;EXIT
  106.  
  107. /* Action 2 - Pick up
  108. /*
  109. ACTION: 2;IFOBJ 12;MOBJ;HANDLE;W 12;PICK;HANDLE -1;SETOF 12,2=1;EXIT
  110.  
  111. /* Action 3 - Use
  112. /*
  113. /* Action 4 - Open
  114. /*
  115. /* Action 5 - Talk to
  116. /*
  117. ACTION: 5;IFOBJ 13;MOBJ;DSET 5,+1,+2,+4,+6,+7,+8,+9;EXIT
  118.  
  119. /* Action 6 - Consume
  120. /*
  121. /* Action 7 - Close
  122. /*
  123. /* Action 8 - Look at
  124. /*
  125. /* Action 9 - Attack
  126. /*
  127. /* End of room file
  128.